home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 April
/
1990-04.d64
/
scr sav example
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
563b
|
23 lines
10 'copyright 1990 compute! publications, inc. all rights reserved.
15 poke 55,0:poke56,32:clr:' reserve area above 8192
20 (NULL) $a000,$b000:(NULL)usr 1,0:(NULL)sqr 1
30 'write "scr.bass,p,w"
40 (NULL)rnd $2000
42 (NULL) 1
43 (NULL)t1=$a000:' storage area under rom
44 (NULL)t2=$a400
55 (NULL)cont (NULL)recall
70 (NULL)store (NULL)sys #0:' zero loop counter
80 for i=0 to 999:'rem inline basic code
90 (NULL)clr 1024+i:(NULL)/ (NULL)t1+i
95 (NULL)clr 55296+i:(NULL)/ (NULL)t2+i
100 next
110 (NULL)not
200 (NULL)recall (NULL)clr 1:(NULL)get:and #254:(NULL)/ 1:' switch to ram
210 for i=0 to 999:'rem inline basic code
215 (NULL)clr (NULL)t1+i:(NULL)/ 1024+i
220 (NULL)clr (NULL)t2+i:(NULL)/ 55296+i
225 next
292 (NULL)tab(:(NULL)/ 1:(NULL)not
999 (NULL) 2